(defvar *doc* nil)


(defun fun ()
  (let ((in (open "sample.xml")))
    (format t "LINE: ~a~%" (read-line in))))


(fun)







